#!perl


unless (open (A, @ARGV[0])) {
    die ("cannot open input file file1\n");
}

open(F,">tmp.po") || die "cannot open output file: $!";

$i=0;

while ($line=<A>) {
    if ($line=~/msgstr \"/) {
        if ($i>0) {
            $line =~ s/msgstr \"/msgstr \"$i/;
        }
        $i++;
    }
    print F $line;
}
